0 PRINT"[147]"TAB(14)"PHONE CODE"
1 REM =================================
2 REM    COMMODARES PROBLEM #46-2 :
3 REM     PHONE CODE
4 REM    SOLUTION BY
5 REM     JUDY GROTH
6 REM =================================
10 DIMV(26):INPUTA$(1),A$(2),A$(3):V(26)=99
20 FORKN=20TO90STEP10:FORLP=1TO3:C=C+1:V(C)=KN+LP:IFC=17THENV(C)=77:LP=LP-1
30 NEXT:NEXT:FORY=1TO3:FORX=65TO90:IFA$(Y)=CHR$(X)THENPRINTV(X-64)
40 NEXT:NEXT